Program Endlos;

{ In der Version 0.9 konnte dieses Programm wegen eines Fehlers
  im FORWARD Teil des Compiler nicht übersetzt werden. Dieses
  Programm ruft sich unendlich selbst auf (Abwechselnd Bumm und Loop)
  Um einen Abbruch zu erreichen, sollte es daher mit der Option
  "Stack Test" übersetzt werden. Ein Abbruch im Debugmodus ist natürlich
  auch möglich ! }

Procedure Loop(i : Integer);
Forward;

Procedure Bumm( I : INteger);
Var a : Array[10] of Integer;
Begin
 Writeln('Bumm(',i,')');
 Loop(i+1)            { Hier kam der Fehler 53 ! Unbekannter Bezeichner }
End;

Procedure Loop(I : Integer);
Begin
 Writeln('Loop(',I,')');
 Bumm(i+1)
End;

begin
 Bumm(1)
end.
